
************************************************************************************************************
**#			 Appendix C - Table C-1: Other Employee Responses to the CEO Pay Ratio Disclosure
************************************************************************************************************

capture cd "/Users/joshw/CEO Pay Ratio/Analysis/"
use "Data/Temp/dataset_main.dta", clear

****************************
*Change in Work Life Balance
****************************
est clear
eststo: xi: reghdfe gd_wl_diff_365 pr_quint_5 pr_quint_1 gd_wl_pre_365 size mtb roa io cash lev salesg_w tsr union rd if sample_yr==1 ,absorb(ffi49)
eststo: xi: reghdfe gd_wl_diff_365 pr_quint_5 pr_quint_1 gd_wl_pre_365 size mtb roa io cash lev salesg_w tsr union rd if sample_yr!=1 ,absorb(indyr)
eststo: xi: reghdfe gd_wl_diff_365 ln_upr ln_epr gd_wl_pre_365 size mtb roa io cash lev salesg_w tsr union rd if sample_yr==1 ,absorb(ffi49)
eststo: xi: reghdfe gd_wl_diff_365 ln_upr ln_epr gd_wl_pre_365 size mtb roa io cash lev salesg_w tsr union rd if sample_yr!=1 ,absorb(indyr)
esttab using "Output/Tables/RF/TC2_employee_worklife_diff.csv", b(3) ar2 varwidth(25) title("Work Life Balance Rating")  order(pr_quint_5 pr_quint_1 ln_upr ln_epr gd_wl_pre_365 size mtb roa io cash lev salesg_w tsr union rd) star(* 0.10 ** 0.05  *** 0.01 ) drop(_cons) replace

****************************
*Change in Culture
****************************
est clear
eststo: xi: reghdfe gd_cult_diff_365 pr_quint_5 pr_quint_1 gd_cult_pre_365 size mtb roa io cash lev salesg_w tsr union rd if sample_yr==1 ,absorb(ffi49)
eststo: xi: reghdfe gd_cult_diff_365 pr_quint_5 pr_quint_1 gd_cult_pre_365 size mtb roa io cash lev salesg_w tsr union rd if sample_yr!=1 ,absorb(indyr)
eststo: xi: reghdfe gd_cult_diff_365 ln_upr ln_epr gd_cult_pre_365 size mtb roa io cash lev salesg_w tsr union rd if sample_yr==1 ,absorb(ffi49)
eststo: xi: reghdfe gd_cult_diff_365 ln_upr ln_epr gd_cult_pre_365 size mtb roa io cash lev salesg_w tsr union rd if sample_yr!=1 ,absorb(indyr)
esttab using "Output/Tables/RF/TC2_employee_culture_diff.csv", b(3) ar2 varwidth(25) title("Culture Rating")  order(pr_quint_5 pr_quint_1 ln_upr ln_epr gd_cult_pre_365 size mtb roa io cash lev salesg_w tsr union rd) star(* 0.10 ** 0.05  *** 0.01 ) drop(_cons) replace

****************************
*Change in Opportunities
****************************
est clear
eststo: xi: reghdfe gd_opp_diff_365 pr_quint_5 pr_quint_1 gd_opp_pre_365 size mtb roa io cash lev salesg_w tsr union rd if sample_yr==1 ,absorb(ffi49)
eststo: xi: reghdfe gd_opp_diff_365 pr_quint_5 pr_quint_1 gd_opp_pre_365 size mtb roa io cash lev salesg_w tsr union rd if sample_yr!=1 ,absorb(indyr)
eststo: xi: reghdfe gd_opp_diff_365 ln_upr ln_epr gd_opp_pre_365 size mtb roa io cash lev salesg_w tsr union rd if sample_yr==1 ,absorb(ffi49)
eststo: xi: reghdfe gd_opp_diff_365 ln_upr ln_epr gd_opp_pre_365 size mtb roa io cash lev salesg_w tsr union rd if sample_yr!=1 ,absorb(indyr)
esttab using "Output/Tables/RF/TC2_employee_opp_diff.csv", b(3) ar2 varwidth(25) title("Opportunities Rating")  order(pr_quint_5 pr_quint_1 ln_upr ln_epr gd_opp_pre_365 size mtb roa io cash lev salesg_w tsr union rd) star(* 0.10 ** 0.05  *** 0.01 ) drop(_cons) replace

****************************
*Change in Overall
****************************
est clear
eststo: xi: reghdfe gd_overall_diff_365 pr_quint_5 pr_quint_1 gd_overall_pre_365 size mtb roa io cash lev salesg_w tsr union rd if sample_yr==1 ,absorb(ffi49)
eststo: xi: reghdfe gd_overall_diff_365 pr_quint_5 pr_quint_1 gd_overall_pre_365 size mtb roa io cash lev salesg_w tsr union rd if sample_yr!=1 ,absorb(indyr)
eststo: xi: reghdfe gd_overall_diff_365 ln_upr ln_epr gd_overall_pre_365 size mtb roa io cash lev salesg_w tsr union rd if sample_yr==1 ,absorb(ffi49)
eststo: xi: reghdfe gd_overall_diff_365 ln_upr ln_epr gd_overall_pre_365 size mtb roa io cash lev salesg_w tsr union rd if sample_yr!=1 ,absorb(indyr)
esttab using "Output/Tables/RF/TC2_employee_overall_diff.csv", b(3) ar2 varwidth(25) title("Overall Rating")  order(pr_quint_5 pr_quint_1 ln_upr ln_epr gd_overall_pre_365 size mtb roa io cash lev salesg_w tsr union rd) star(* 0.10 ** 0.05  *** 0.01 ) drop(_cons) replace
